HAM Radio 1997/HAM Radio 1997.iso/vcls/novtli/novtest.dfm/novtest.txt

Text File | 1996-04-08 | 5KB | 253 lines

object Form1: TForm1
  Left = 1
  Top = 3
  BorderStyle = bsDialog
  Caption =
    'Novell Transport Layer Interface Component testing (Delphi Versi' +
    'on)'
  ClientHeight = 450
  ClientWidth = 630
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  OnCreate = FormCreate
  TextHeight = 16
  object Label2: TLabel
    Left = 15
    Top = 204
    Width = 30
    Height = 16
    Caption = 'Port:'
  end
  object Label5: TLabel
    Left = 143
    Top = 204
    Width = 86
    Height = 16
    Caption = 'Data to send:'
  end
  object NovTLI1: TNovTLI
    Left = 560
    Top = 72
    Width = 32
    Height = 32
    Port = 0
    OnDataAvailable = NovTLI1DataAvailable
    OnSessionClosed = NovTLI1SessionClosed
    OnSessionAvailable = NovTLI1SessionAvailable
    OnSessionConnected = NovTLI1SessionConnected
  end
  object Connect: TButton
    Left = 8
    Top = 8
    Width = 81
    Height = 33
    Hint = 'Connect to the '#39'listening'#39' server'
    Caption = 'Connect'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = ConnectClick
  end
  object SendData: TButton
    Left = 96
    Top = 8
    Width = 89
    Height = 33
    Hint = 'Send data to the server'
    Caption = 'Send Data'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnClick = SendDataClick
  end
  object Listen: TButton
    Left = 192
    Top = 8
    Width = 73
    Height = 33
    Hint = 'Establish a server environment and listen for client requests'
    Caption = 'Listen'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = ListenClick
  end
  object Close: TButton
    Left = 272
    Top = 8
    Width = 65
    Height = 33
    Hint = 'Close the connection'
    Caption = 'Close'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = CloseClick
  end
  object Disconnect: TButton
    Left = 344
    Top = 8
    Width = 105
    Height = 33
    Hint = 'Send a disconnect request to the partner'
    Caption = 'Disconnect'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    OnClick = DisconnectClick
  end
  object CancelListen: TButton
    Left = 456
    Top = 8
    Width = 105
    Height = 33
    Hint = 'Close the server connection and cancel client requests'
    Caption = 'Cancel Listen'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
    OnClick = CancelListenClick
  end
  object AddrOptions: TGroupBox
    Left = 8
    Top = 56
    Width = 177
    Height = 129
    Caption = 'Addressing Options'
    TabOrder = 9
    object UseServerName: TRadioButton
      Left = 16
      Top = 32
      Width = 145
      Height = 25
      Caption = 'Use ServerName'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = UseServerNameClick
    end
    object UsePhysicalAddr: TRadioButton
      Left = 16
      Top = 72
      Width = 153
      Height = 25
      Hint = 'Use the Physical addressing mechanisms instead of the ServerName'
      Caption = 'Use Physical Addr'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = UsePhysicalAddrClick
    end
  end
  object Port: TEdit
    Left = 63
    Top = 200
    Width = 65
    Height = 25
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
  end
  object Edit1: TEdit
    Left = 239
    Top = 200
    Width = 377
    Height = 25
    Hint = 'Data to send to partner'
    MaxLength = 255
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    Text = 'The Quick Brown Fox Jumped Over The Lazy Dog 0123456789 Times'
  end
  object Memo1: TMemo
    Left = 16
    Top = 240
    Width = 601
    Height = 201
    Hint = 'Output area'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 10
  end
  object NetNode: TGroupBox
    Left = 200
    Top = 128
    Width = 417
    Height = 57
    Caption = 'Physical Addressing'
    TabOrder = 11
    object LabelNet: TLabel
      Left = 8
      Top = 24
      Width = 26
      Height = 16
      Caption = 'Net:'
    end
    object LabelNode: TLabel
      Left = 200
      Top = 24
      Width = 38
      Height = 16
      Caption = 'Node:'
    end
    object AddrNet: TEdit
      Left = 40
      Top = 20
      Width = 145
      Height = 25
      MaxLength = 8
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object AddrNode: TEdit
      Left = 248
      Top = 20
      Width = 153
      Height = 25
      MaxLength = 12
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
  end
  object GroupBox1: TGroupBox
    Left = 200
    Top = 56
    Width = 417
    Height = 65
    Caption = 'Service Advertising Protocol (SAP)'
    TabOrder = 12
    object LabelServerName: TLabel
      Left = 48
      Top = 29
      Width = 89
      Height = 16
      Caption = 'Server Name:'
    end
    object ServerName: TEdit
      Left = 144
      Top = 25
      Width = 153
      Height = 25
      MaxLength = 8
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object HelpButton: TButton
    Left = 568
    Top = 8
    Width = 49
    Height = 33
    Caption = 'Help'
    TabOrder = 13
    OnClick = HelpButtonClick
  end
end